home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / notone (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  91 lines
  1. 110 PRINT"[147][144]        NOTONE        [146][144]"
  2. 120 PRINT"[144]INSTRUCTIONS?"
  3. 130 PRINT"(O=OUI)";:INPUTA$
  4. 150 IFA$="O"THEN160
  5. 155 GOTO240
  6. 160 POKE36879,25
  7. 170 PRINT"[147]VOICI LE JEU DE NOTONE[146]. LE BUT DU JEU DE NOTONE EST";
  8. 180 PRINT" DE  LANCER UNE PAIRE DE DES EN CALCULANT VOS POINTS CUMULATIVEMENT.
  9. 190 [153]" SI  PENDANT QUE VOUS LANCEZ LES DES, LE TOTAL";
  10. 200 [153]" EGALE LE TOTAL  DE VOS  PREMIERS POINTS ALORS VOUS PERDEZ";
  11. 210 [153]" TOUS VOS  POINTS ACCUMULES. EVIDEMENT, VOUS POUVEZ VOUS ARRETER";
  12. 220 [153]" DE LANCER  N'IMPORTE QUAND. IL Y A DIX TOURS";
  13. 230 [153]" PAR JEUX  STOPBONNE CHANCEWAITSTOP (J'SUIS  UN AS !!!)"
  14. 231 [153]"CONVERSION DE L'ANGLAIS PAR BAUDOUIN    ST-CYR
  15. 232 PRINT
  16. 233 PRINT
  17. 234 PRINT
  18. 235 PRINT"'RETURN'"
  19. 236 GETZ$:IFZ$=""THEN236
  20. 240 P1=0:C1=0
  21. 250 P=0:C=0
  22. 255 POKE36879,25
  23. 260 PRINT"[147]VOUS COMMENCEZ!!"
  24. 270 FORI=1TO10:PRINT
  25. 280 PRINTTAB(8);"RONDE"I
  26. 290 PRINT"VOTRE TOUR"
  27. 300 GOSUB890:F=D:D=0
  28. 310 S=0
  29. 320 R=0
  30. 330 R=R+1
  31. 340 PRINT"LANCER"R"EST UN"D1"ET"D2
  32. 350 IFD=FTHEN410
  33. 360 S=S+D1+D2
  34. 370 PRINT"S[146]TOP OU R[146]OULE";:INPUTA$
  35. 380 IFA$="S"THEN420
  36. 390 IFA$="R"THEN400
  37. 391 GOTO370
  38. 400 GOSUB890:GOTO330
  39. 410 S=0
  40. 420 P=P+S
  41. 430 PRINT"[147][144]VOUS RECEVEZ"S"POINTS CETTE RONDE.[144]"
  42. 440 PRINT"MON TOUR."
  43. 460 GOSUB890
  44. 470 F=D
  45. 480 S=0
  46. 490 R=0
  47. 500 D=0
  48. 510 T=18/(3-INT(ABS(F-7)/2))
  49. 520 Z=INT((((T*7)/6)-T)*36)
  50. 530 R=R+1
  51. 540 PRINT"LANCER"R"EST UN"D1"ET "D2
  52. 545 FORX=1TO250:NEXTX
  53. 550 IFF=DTHEN640
  54. 560 S=S+D1+D2
  55. 570 IFI<>10THEN600
  56. 580 IFC+S>PTHEN650
  57. 590 GOTO620
  58. 600 IFR>=TTHEN650
  59. 610 IFS>ZTHEN650
  60. 620 GOSUB890
  61. 630 GOTO530
  62. 640 S=0
  63. 650 PRINT"[147]J'AI RECUS"S"POINTS  CETTE RONDE"
  64. 660 C=C+S
  65. 670 PRINT"POINTAGE A LA FIN DE  LA RONDE"I
  66. 680 PRINT"VOUS",P
  67. 690 PRINT"ORDINATEUR",C
  68. 700 NEXTI
  69. 710 PRINT""
  70. 730 IFC>PTHEN770
  71. 731 IFC=PTHEN760
  72. 740 PRINT"[144]VOUS GAGNEZ!!![146][144]":P1=P1+1
  73. 750 GOTO780
  74. 760 PRINT"[144]C'EST L'EGALITE!":GOTO780
  75. 770 PRINT"[144]VOUS PERDEZ!!!!![144]":C1=C1+1:GOTO780
  76. 780 PRINT"      LE POINTAGE    [146]"
  77. 790 PRINT"VOUS",P1
  78. 800 PRINT"ORDINATEUR[144]",C1
  79. 820 PRINT"ENCORE ?? (O=OUI)"
  80. 830 INPUTA$:IFA$="O"THEN250
  81. 840 PRINT
  82. 850 IFP1>C1THEN870
  83. 851 IFP1=C1THEN880
  84. 860 PRINT"JE GAGNE PAR"C1-P1:GOTO920
  85. 870 PRINT"VOUS GAGNEZ PAR"P1-C1:GOTO920
  86. 880 PRINT"C'EST L'EGALITE!":GOTO920
  87. 890 D1=INT(RND(1)*6+1)
  88. 900 D2=INT(RND(1)*6+1)
  89. 910 D=D1+D2:RETURN
  90. 920 END
  91.